home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / jstkv_js < prev    next >
Internet Message Format  |  1995-03-31  |  5KB
  1. From: Joerg Sauer <sauer@akela.informatik.rwth-aachen.de>
  2. Subject:  v05i041:  jstkv_js - Just another Stack View v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Organization: Rechnerbetrieb Informatik  /  RWTH Aachen
  5. Followup-To: comp.sys.hp48
  6. Summary: Displays up to 10 stack-levels & scrolling feature v1.0
  7. Approved: spell@seq.uncwil.edu
  8.  
  9. Checksum: 2860566353 (verify with brik -cv)
  10. Submitted-by: Joerg Sauer <sauer@akela.informatik.rwth-aachen.de>
  11. Posting-number: Volume 5, Issue 41
  12. Archive-name: jstkv_js/part01
  13.  
  14.  
  15. BEGIN_DOC jstkv.doc
  16.  
  17. Hi folks,
  18. some time ago I got a program which was able to display up to ten levels
  19. of the stack. It was nice and satisfied me for some time, but some day
  20. I needed to display a lot of data at once, so I got into the program and added
  21. some scrolling features. But then, unfortunately, it was up to 1600 Bytes large
  22. and very slow. So I decided to become a HP Guru and started my first System-RPL
  23. project. The program was short --- just about 100 Bytes bigger than the first
  24. User-RPL programm --- (<- Hello, to all TeXperts ;-) and reasonable fast.
  25. There was just one problem left. If I have more than 10 levels of stack, the
  26. display Grob is bigger than 131x64 Pixels. I wanted the HP to display the Grob
  27. at a variable windowcorner, I tried this with XYGrobDisplay. But all I got was,
  28. that the upper left corner of my Grob moves down and down out of the display.
  29. So I asked for help about 4 month ago, and I got an address of an function from
  30. Detlef Mueller (Thanks Detlef), but it didn't work. I had some trouble with my
  31. usenet access during the last four month, so I decided to post this program now.
  32. The efect of not having the missing function is that I used the scrollup and
  33. scrolldown functions in loops. So you have really nice smooth page-scrolling.
  34. I think if someone could help me with the address of the funktion I need, I can
  35. save some (just a few) more bytes. Ok, ok I'm going on with a description now.
  36. no more small-talk anymore ;-)
  37.  
  38. How it works:
  39.  
  40. If there is something on the stack it will display it. Up to 10 levels at once.
  41. If there are more then 10 levels you can scroll the display.
  42.  
  43. The Up- and Down-keys scroll just one level up or down.
  44.  
  45. Left-shifted Up- and Down-keys scroll 10 levels (Pagewise smooth :-) scrolling)
  46.  
  47. Right-shifted Up- and Down-keys jump to the top or the bottom of the stack.
  48.  
  49. <On> terminates the program.
  50.  
  51. As I know there are no bugs (I'm using it very frequently)
  52. If you have some suggestions improving it or something else I would be very
  53. glad to hear from you.
  54.                        So long Joerg
  55.  
  56. PS: I finaly got my 128KB Ram-Card (jump :-) so I can go deeper into materia
  57.     since I own no MesS-Dos PC to use the HP SysRpl software.
  58.  
  59. END_DOC
  60.  
  61.  
  62. BEGIN_ASC jstkv.asc
  63. %%HP: T(1);
  64. "D9D20C41307CC30CB916D9D20C4130CA03113593FC2E4D9D2088130F304038D3
  65. 039916D9D20881301962688130ADB464EC30CB916D9D2044230ADB46B2130B20
  66. 409FF30B213088130B204038D3039916D9D20ADB46F304030040B21308813053
  67. 0404EC3039916D9D20ADB4635040D0040B2130B2130EF116ADB460ED30C12164
  68. 2D46F8511E5216FED30FEF307F37088130122704E76151B5012270AB5262E230
  69. 90794A3216D9D209FF30C7816D9D204423008F11B213030040C7816D9D204423
  70. 000D11B2130D0040C7816D9D20442303FC11B2130B2130FEF309A21612270940
  71. 402E2302CE300ED306E7F4BBF06CAF06976114337013D26FEF30CAF063223044
  72. 230FEF30322300B821EA6150CA3047A20D6E204054879647B21300D4702A1705
  73. 6F14D9D209FF303D816D9D20D50403D816D9D20231D4231D4231D4231D4231D4
  74. 231D4B2130990403D816D9D20E61D4E61D4E61D4E61D4E61D4E61D4B2130C1B4
  75. 63D816D9D2018A3079E60D6E20405487964772D70B213044230B2130300403D8
  76. 16D9D20D50403D816D9D202BB46FEF307F370231D443370B2130990403D816D9
  77. D202BB46FEF307F370E61D443370B213044230B2130D00403D816D9D20D50403
  78. D816D9D2009615B2130990403D816D9D20EA615B213044230B21304423044230
  79. B2130D6E2040548796478C17027F06743E4CA031B2130B213074FE"
  80. END_ASC
  81.  
  82.  
  83. BYTES: #EF47h 505
  84.  
  85. BEGIN_UU jstkv.uue
  86. begin 644 jstkv
  87. M2%!(4#0X+46=+<`4`\<\P)MAG2W`%`.L,!%3.<_BU-D"B#'P`P2#/3"989TM
  88. M@!@#D2:&&`/:2T;.`[P9UMD"1#*@O60K,;`"!/D_L!(#B#&P`@2#/3"989TM
  89. MH+UD/T`P``0K,8`8`S5`0,X#DQG6V0+:2S8%!`U`L!(#*S'@'V':2P;>`QP2
  90. M1M)DCQ7A)6'O/?#^`_=S@!@#(7)`?A856Q`B![HE)BX#"9>D(V&=+9#_`WP8
  91. MUMD"1#(`^!$K,3``!'P8UMD"1#(`T!$K,=``!'P8UMD"1#(PSQ$K,;`2`^\_
  92. MD"IA(7*0!`3B,B#L`^`]8'Y/NP_&^F!Y%D$S!S$M]OX#K`\V(@-$,O#^`R,R
  93. M`(L2KA8%K`-T*M#F`@1%>&ET*S$`30>B<5#V09TMD/\#TQC6V0)=0#"-89TM
  94. M(!--,M$D$TTRT20333+1M!(#F4`PC6&=+>`636[1Y!9-;M'D%DUNT;02`QQ+
  95. M-HUAG2T0J`.7;M#F`@1%>&ET)WVP$@-$,K`2`P-`,(UAG2W0!033&-;9`K)+
  96. M]OX#]W,@$TTT<[`2`YE`,(UAG2T@NV3O/W`_!V[11#,'*S%`)`,K,=``!-,8
  97. MUMD"74`PC6&=+0!I42LQD`D$TQC6V0*N%K42`T0RL!(#1#)`)`,K,=#F`@1%
  98. 2>&ETR'$@]V!'X\0*$RLQL!(#
  99. `
  100. end
  101. sum -r/size 20902/730 section (from "begin" to "end")
  102. sum -r/size 25446/513 entire input file
  103. END_UU
  104.